home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 18 / 018.d81 / pixel page (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  924b  |  39 lines
  1. 2 ifa=3then63000
  2. 3 ifa>.then160
  3. 4 print"[147]":lf=0
  4. 7 goto100
  5. 8 :
  6. 10 poke249,224:poke250,204
  7. 11 poke251,0:poke252,64
  8. 12 poke253,0:poke255,0
  9. 15 poke53280,0:sys51456:sys51459
  10. 20 poke198,0:wait198,1
  11. 30 sys51459
  12. 55 print"[147]":lf=0
  13. 60 goto63000
  14. 90 :
  15. 100 v=53248:s=54272
  16. 110 pokev+32,.:pokev+33,.:print"          [204][207][193][196][211][212][193][210] [206]umber 18"
  17. 120 print""
  18. 130 printspc(11)"[212]he [195]omet [195]ometh!"
  19. 140 print""
  20. 150 f$="pixelpg.shp"
  21. 157 print"     [195]over designed by [202]erry [202]ones"
  22. 158 print"[156]          using the [203][207][193][204][193][160]pad."
  23. 159 ifa=0thena=1:print"[158][204]oading [208]icture":load"unpacker",8,1
  24. 160 ifa=1thena=2:loadf$,8,1
  25. 166 a=3
  26. 170 s=54272:fori=.to23:pokes+i,0:next:pokes+24,15:pokes+5,255:pokes+6,255
  27. 175 pokes+12,255:pokes+13,255:pokes+19,255:pokes+20,255:pokes+1,3:pokes+8,3
  28. 177 pokes+15,3:pokes+7,7:pokes+14,18
  29. 180 print"[145][156][146][208]ress space bar to view cover."
  30. 182 print"[208]ress it again to return to menu."
  31. 185 poke198,0:wait198,1
  32. 190 pokes+4,17:pokes+11,17:pokes+18,17:goto10
  33. 200 :
  34. 300 :
  35. 63000 iflf=0thenlf=1:load"romusic",8,1
  36. 63010 iflf=1thenlf=2:load"sidirq*",8,1
  37. 63020 iflf=2thenlf=3:load"routines v4",8,1
  38. 63030 load"hello connect",8
  39.